home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / rgbmap.gs < prev    next >
Text File  |  1998-04-23  |  257b  |  20 lines
  1. r = 0
  2. b = 80
  3. c = 16
  4. y = 0.5
  5. while (r<256)
  6.   x = 0.5
  7.   g = 0
  8.   while (g<256)
  9.     'set rgb 'c' 'r' 'g' 'b
  10.     'set line 'c
  11.     'draw recf 'x' 'y' '%(x+0.8)%' '%(y+0.6)
  12.     g = g + 30
  13.     c = c + 1
  14.     x = x + 1
  15.   endwhile
  16.   y = y + 0.8
  17.   r = r + 30
  18. endwhile
  19.  
  20.